home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Libris Britannia 4
/
science library(b).zip
/
science library(b)
/
PROGRAMM
/
PROGEDIT
/
3458B.ZIP
/
AMAC44B.ZIP
/
QLST@F1.QM
< prev
next >
Wrap
Text File
|
1992-05-27
|
3KB
|
52 lines
* qlst@f1.qm
* Macro To Load a File List of Files In Ring
* 5/18/92
*
* ----------------------------------------------------------------------
* @(f1) Load File List In Ring,
* User Selects File To Load Emulating PC Magazine Filectrl.com,
* ----------------------------------------------------------------------
@f1 macrobegin
setscreenoff * Turn screen off for less flicker
endfile markline begfile * Mark file list *|
* ---------------------- Copy File List To Nul ----------------------* *|a
editfile "Nul" return * Load Nul for faster loading *|
copyblock unmarkblock * Copy file list to Nul *|
endfile * Load last file first
* ---------------------- Load File List In Ring ----------------------*
LOAD:
setscreenon setscreenoff * Turn screen on/off to see loading |b
markline * Mark file name at cursor
copy * Copy file name to scrap
editfile currentfilename " " * Load current file plus
paste return * last marked on list into ring
cursorup * Move up to next file in list
jtrue LOAD * Continue loading until top of list
* --------------- Quit Nul, Return To Top of File List ---------------*
quit * Quit formatted Nul file list *|a
* ------------------- Load First File in Window 2 -------------------*
horizontalwindow * Open 2 windows
editfile paste return * Load first file in list in window 2
prevwindow * Move to window 1
* ------------------- Select Another File To Load -------------------*
SELECT:
setscreenon * Turn on for pause
pause * Pause to select file to load
markline copy * Copy selected file name to scrap
nextwindow * Move to window 2
editfile paste return * Load selected file
zoomwindow * Zoom to edit in full window
pause * Press <enter> to Select another file
prevwindow * Return to list to select another file
makectrofscreen * To view files above and below cursor
jump SELECT * Loop again to select another file
*
* 50 bytes Wed 11-20-1991 15:16:31 (TH @7, from RINGnn.QM)
* 54 bytes Thu 05-07-1992 10:01:39 (TH @f1, added Nul *|a)